www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/admin/Admin_BackData.asp

    <!--#include file="Include/Gaobei_setup.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include FILE="Include/Admin_Function.asp"-->
<% CheckAdmin3 %>
<link href="other/Admin.css" rel="stylesheet" type="text/css">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"> <br> <strong><br>
      </strong> <table width="550" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="25" align="center">备份数据库
<%
    if request("action")="Backup" then
    call backupdata()
    else
%>
</td>
        </tr>
        <tr> 
          <form method="post" action="?action=Backup">
            <td><br> <table width="80%" border="0" align="center" cellpadding="0" cellspacing="2">
                <tr> 
                  <td height="25"><strong>备份数据文件</strong>[需要FSO权限]</td>
                </tr>
                <tr> 
                  <td height="22"> 当前数据库路径:</td>
                </tr>
                <tr> 
                  <td height="22"><input type=text size=50 name=DBpath value="<%=db%>"></td>
                </tr>
                <tr> 
                  <td height="22"> 备份数据库目录[如目录不存在，程序将自动创建:</td>
                </tr>
                <tr> 
                  <td height="22"><input type=text size=50 name=bkfolder value=DBbackup></td>
                </tr>
                <tr> 
                  <td height="22">备份数据库名称[如备份目录有该文件，将覆盖，如没有，将自动创建]</td>
                </tr>
                <tr> 
                  <td height="22"><input type=text size=30 name=bkDBname value=#GaoBeiSys_DataBack<%=Date()%>.mdb></td>
                </tr>
                <tr> 
                  <td height="22"><div align="center"> 
                      <input type=submit value="确定">
                    </div></td>
                </tr>
                <tr> 
                  <td height="22"><br> <br>
                    本程序的默认数据库文件为<%=db%><br>
                    您可以用这个功能来备份您的法规数据，以保证您的数据安全！<br>
                    注意：所有路径都是相对与程序空间根目录的相对路径</td>
                </tr>
                <tr> 
                  <td height="22">&nbsp;</td>
                </tr>
              </table></td>
          </form>
        </tr>
      </table>
<%end if%>
<% 
    sub backupdata() 
    Dbpath=request.form("Dbpath") 
    Dbpath=server.mappath(Dbpath) 
    bkfolder=request.form("bkfolder") 
    bkdbname=request.form("bkdbname") 
    Set Fso=server.createobject("scripting.filesystemobject") 
    if fso.fileexists(dbpath) then 
    If CheckDir(bkfolder) = True Then 
    fso.copyfile dbpath,bkfolder& "\"& bkdbname 
    else 
    MakeNewsDir bkfolder 
    fso.copyfile dbpath,bkfolder& "\"& bkdbname 
    end if 
    response.write "备份数据库成功，您备份的数据库路径为<br>" &bkfolder& "\"& bkdbname 
    Else 
    response.write "找不到您所需要备份的文件。" 
    End if 
    end sub 
    '------------------检查某一目录是否存在------------------- 
    Function CheckDir(FolderPath) 
    folderpath=Server.MapPath(".")&"\"&folderpath 
    Set fso1 = CreateObject("Scripting.FileSystemObject") 
    If fso1.FolderExists(FolderPath) then 
    '存在 
    CheckDir = True 
    Else 
    '不存在 
    CheckDir = False 
    End if 
    Set fso1 = nothing 
    End Function 
    '-------------根据指定名称生成目录--------- 
    Function MakeNewsDir(foldername) 
    Set fso1 = CreateObject("Scripting.FileSystemObject") 
    Set f = fso1.CreateFolder(foldername) 
    MakeNewsDir = True 
    Set fso1 = nothing 
    End Function 
%>
</td>
  </tr>
</table>